R Notebook

library(sf)
library(plotly)
library(leaflet)
library(crosstalk)
boroughs<- st_read("http://services5.arcgis.com/GfwWNkhOj9bNBqoJ/arcgis/rest/services/nybb/FeatureServer/0/query?where=1=1&outFields=*&outSR=4326&f=geojson")
boroughs$x <- seq(1:5)
boroughs$y <- seq(2,10,2)

boroughs_centroids <- st_transform(st_centroid(boroughs),crs = 4326)
sd_boroughs <- SharedData$new(boroughs_centroids)
test <- bscols(widths=c(3, NA, NA),
               list(filter_slider("x", "X Value", sd_boroughs, ~x, step=1, round=-1, sep=""),
                    filter_slider("y", "Y Value", sd_boroughs, ~y, step=1, round=1)),
              leaflet(sd_boroughs) %>% 
              addProviderTiles(providers$CartoDB.Positron) %>%
                addPolygons(data=st_transform(boroughs, crs=4326),color = "#444444", weight = 1, 
                            smoothFactor = 0.5,
                            opacity = 1.0, 
                            fillOpacity = 0.5,
                            fillColor = ~colorQuantile("Greens", x)(x), 
                            highlightOptions = highlightOptions(color = "white", weight = 2)) %>% 
                 addCircleMarkers(radius=5, stroke=TRUE, color="yellow", weight=1,fillColor = "#03F",
                               opacity=1,fillOpacity=1,popup=~BoroName),
              plot_ly(sd_boroughs, x = ~x, y = ~y) %>% 
              add_markers(alpha = 0.5,text = ~paste('Borough: ', BoroName)) %>%
              #hoverinfo = 'text',
              highlight("plotly_hover"))

X Value

Y Value